module Tree
  ( Tree(Leaf,Branch)
  , fringe
  ) where

data Tree a
  = Leaf a
  | Branch (Tree a) (Tree a)

fringe :: Tree a -> [a]
fringe (Leaf x) = [x]
fringe (Branch left right) = fringe left ++ fringe right
